﻿''' <summary>
''' Attribut fournissant des informations sur le classe qui représente le module
''' </summary>
''' <remarks>
''' 
''' </remarks>
<AttributeUsage(AttributeTargets.Assembly)> _
<Obsolete("Cet attribut n'est plus utilisé.")> _
Public Class EntryPointAttribute
    Inherits Attribute

    Private _moduletype As Type

    ''' <summary>
    ''' 
    ''' </summary>
    ''' <param name="ModuleType"></param>
    ''' <remarks></remarks>
    Sub New(ByVal ModuleType As Type)
        _moduletype = ModuleType
    End Sub

    ''' <summary>
    ''' Type du module
    ''' </summary>
    ''' <remarks>
    ''' 
    ''' </remarks>
    Public ReadOnly Property ModuleType As Type
        Get
            Return _moduletype
        End Get
    End Property
End Class

